Stem Construction Utility

ae5da1d4-d718-4a46-ab32-236f5646832b 23 9 12 decimal

&[DATE] &[TIME] - &[FILENAME]

A 0.3937 0.7459 1.2169 0.5282 0.148 0.046 0.0104 0.0017 0.0007 0.0001 2.4049 105 -^* 6.9288 106 -^* 6.4927 107 -^* 4.3556 107 -^* 1.602 107 -^* 2.3089 108 -^* 2.5481 109 -^* 3.5071 1011 -^* 6.3399 1011 -^* 4.1599 1014 -^* 5.3295 1016 -^* 1.6695 1018 -^* 4.1058 1016 -^* 231 mat :

B 4.3427 1.7114 0.6057 0.1943 0.0698 0.0188 0.0061 0.0014 0.0005 0.0002 4.8419 105 -^* 1.5644 105 -^* 5.361 106 -^* 2.1689 106 -^* 6.3343 107 -^* 1.2879 107 -^* 2.5604 108 -^* 9.1544 109 -^* 7.394 1010 -^* 2.4731 1010 -^* 1.9594 1013 -^* 6.4303 1014 -^* 6.4229 1014 -^* 231 mat :

X0 1.2113 108^* 1.2113 108^* 7.5082 107^* 6.9466 107^* 3.2054 107^* 2.929 107^* 171 mat :

Y0 2.3587 107^* 0 4.6051 107^* 5.616 106^* 3.7411 107^* 2.7648 106^* 2.929 107^* 71 mat :

x y f A n el B n el / 1 B n el y * - exp - (* B n el x * - exp * eval n 123 sum 11 line :

x y ff n 123 range SS14 n el A n el B n el / 1 B n el y * - exp - (* B n el x * - exp * eval : for SS14 (sum 21 line :

j 7 :

t0 X0 j el : 1

T0 Y0 j el : 29290000

t0 T0 f t0 T0 ff 21 mat 14.344422294 14.344422294 21 mat

3 appVersio 0.98.6179 ≡

t0 T0 f t0 T0 ff 21 mat 14.344422294 14.344422294 21 mat

Puzzling isn't it???

A n el B n el / 1 B n el T0 * - exp - (* B n el t0 * - exp * eval n 123 sum 14.3444

does not evaluate as 
a two parameters  ...
as simple as observed. t0 T0 Φ A n el B n el / 1 B n el T0 * - exp - (* B n el t0 * - exp * eval n 123 sum :

t0 T0 Φ 14.344422294

t0 T0 f 14.3444

n 13 :

optimization numeric s13 A n el B n el / 1 B n el T0 * - exp - (* B n el t0 * - exp * eval : 0.1211

n 14 :

for these two: you assign 1.6049*10^{-115} much lower than 15 decimals display ... as you evaluate result ... then 0

optimization numeric s14 A n el B n el / 1 B n el T0 * - exp - (* B n el t0 * - exp * eval : 0.2008

s13 s14 + 0.3219

1.6049 10115 -^* 1.6049 10115 -^*

is so little that it does not add the 
moustache of a frog to the beard of a tod 1.1533 10283 -^* 1.1533 10283 -^*

1.1533 10283 -^* 1.6049 10115 -^* + 1.6049 10115 -^*

1.1533 10283 -^* eval 1.6049 10115 -^* eval + 1.6049 10115 -^*

1.1533 10283 -^* eval 1.6049 10115 -^* eval + 11 line 1.6049 10115 -^*

data char size clr plot k 1 data rows range r3 k el char : r4 k el size : r5 k el clr : 13 mat for data r3 r4 r5 augment 21 line :

j 17 range :

t0 X0 j el : 12113000012113000075082000694660003205400029290000171 mat

T0 Y0 j el : 2358700004605100056160003741100027648002929000071 mat

XY j t0 T0 f vectorize augment :

data XY o 5 black plot :

data XY 2 1 sys

XY 1 0.003631464 203 0.013470081 4 0.002702306 5 0.032973401 6 0.004692937 7 14.344422294 72 mat

α 0.3937 0.7459 1.2169 0.5282 0.148 0.046 0.0104 0.0017 0.0007 0.0001 2.4049 105 -^* 6.9288 106 -^* 6.4927 107 -^* 4.3556 107 -^* 1.602 107 -^* 2.3089 108 -^* 2.5481 109 -^* 3.5071 1011 -^* 6.3399 1011 -^* 4.1599 1014 -^* 5.3295 1016 -^* 1.6695 1018 -^* 4.1058 1016 -^* 231 mat :

λ 4.3427 1.7114 0.6057 0.1943 0.0698 0.0188 0.0061 0.0014 0.0005 0.0002 4.8419 105 -^* 1.5644 105 -^* 5.361 106 -^* 2.1689 106 -^* 6.3343 107 -^* 1.2879 107 -^* 2.5604 108 -^* 9.1544 109 -^* 7.394 1010 -^* 2.4731 1010 -^* 1.9594 1013 -^* 6.4303 1014 -^* 6.4229 1014 -^* 231 mat :

T 1.2113 108^* 1.2113 108^* 7.5082 107^* 6.9466 107^* 3.2054 107^* 2.929 107^* 171 mat :

t 2.3587 107^* 0 4.6051 107^* 5.616 106^* 3.7411 107^* 2.7648 106^* 2.929 107^* 71 mat :

j 17 range :

t T f α n el λ n el / 1 λ n el t * - exp - (* λ n el T * - exp * eval n 123 sum 11 line :

j t T f vectorize augment 1 0.003631464 203 0.013470081 4 0.002702306 5 0.032973401 6 0.004692937 7 14.344422294 72 mat

MeV n 123 range j 17 range MeV n j el α n el λ n el / 1 λ n el t j el * - exp - (* λ n el T j el * - exp * eval : for for MeV 21 line :

idx 123 range :

fissile idx MeV 1 col augment idx MeV 2 col augment idx MeV 3 col augment idx MeV 4 col augment idx MeV 5 col augment idx MeV 6 col augment idx MeV 7 col augment 71 sys :

fissile 1 el fissile 1 el o 5 blue plot 1 fissile 3 el ( * fissile 4 el fissile 5 el fissile 6 el 6 1 sys

fissile 1 el o 5 blue plot

fissile 7 el 1 1 sys

MeV 11 mat 000000 0.001178677 000000 0.078718626 000000 1.096339723 000000 2.238423097 000000 1.977390931 000000 2.401238214 000000 1.694549688 000000 1.212586904 000000 1.399300175 000000 0.49990001 000000 0.496661137 000000 0.442897699 0000 2.840317718 1076 -^* 7.738508704 1070 -^* 0.121109218 00 3.801645691 1072 -^* 7.411596404 1067 -^* 1.287721576 1031 -^* 5.155445297 1029 -^* 0.200820257 1.204169931 1034 -^* 0 5.601051366 1022 -^* 1.908271946 1020 -^* 0 0.000000002 0.252908604 0.000000029 0 0.000011293 0.000012016 0.002865031 0.001235287 0.175152955 0.002029564 0 0.010078693 0.00225089 0.026993829 0.003212948 0.052507105 0.000245471 0 0.000662753 0.000101644 0.000828444 0.000073228 0.000901039 0.001355428 0 0.002715429 0.000337521 0.002284524 0.000171355 0.001836993 0.000000949 0 0.00000187 0.000000229 0.000001537 0.000000114 0.000001214 0.000000013 0 0.000000025 0.000000003 0.00000002 0.000000001 0.000000016 000 9.376 1012 -^* 0 4.616 1012 -^* 0 0.00000001 0 0.000000019 0.000000002 0.000000015 0.000000001 0.000000012 237 mat 11 mat

fissile 5 el fissile 6 el fissile 5 el o 5 blue plot fissile 6 el . 12 red plot 4 1 sys Stem Construction Utility

Core component of the stem style P v replicate k 1 : i 1 v length range P i el 1 ≡ continue j 1 P i el range T k j + el v i el : for k k P i el + : 21 line if for T 31 line :

Stem construction vy stem N vy length : i 1 N range q i el 3 : q N el 2 : 21 line for 11 line i 1 N range v i el i : for i 1 N range S 3 i * el vy i el : for u q v replicate : V u S augment : V V 3 V rows 12 submatrix : 71 line :

Stem(data) ... paired data xy

Spectrum stem plot for QuickPlot unicolor data Stem stemX 1 data rows range : i 1 stemX rows range stem i el data i 1 el data i 2 el data i 1 el 022 mat : for i 1 stem rows 1 - range stem i el stem i el stem i 1 + (1 el 1 el 012 mat stack : for V stem 1 el : j 2 stem rows 1 - range V V stem j el stack : for V V data data rows row stack : 71 line :

Fissile idx 0.25 + MeV 6 col augment :

fissile 5 el Stem Fissile Stem 2 1 sys

Fissile idx 0.25 + 500 MeV 5 col (* augment :

fissile 7 el Stem Fissile Stem 2 1 sys